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EDITORIAL 


Por falta de espaço, este número nãc contém todos os projectos que havíamos pre 
vistos Se eles continuam na gaveta à ESSRTA de serem publicados, é porque nos 
parece mais Útil e estimulante divulsor a colaboração dos memoros que começa a 
manifestar-se quantitativa e qualitativamente mslhor,. E essa é uma das razões 


fundamentais para a soLrevivencia e progresso do Clubs, 


De . entre as cartas que já recebemos, uma delas referia que “o manual que acom 
panha o ZX21 tem uma linguagem hermética que o torna não funcional (...) Os dois 
boletins do Clube parecem continuar a usar o hermetismo como norma” (Mário Silva 
Freire, Portalegre). Consideramos Lem oportuna e construtiva esta crítica e, de 

acordo com a sugestão deste leitor, iremos a partir do presente némero incluir 

ura secção - PASSO A PASSO - dirigida fundamentalmente a principiantes e na qual 
serão apresentados programas detalhadazcnte explicados. Assim, solicitamos desde 
já a todos quantos nos enviam progremcs que os façam acorpanhar = se possfvel! - 


- de explicações pormenorizadase 


Estamos a fazer esforços no sentido d= xelhorar a apresentação do nosso boletim. 
Contando com o precioso apoio da “Fotomecânica Mabreu” ,memiro do Clube, esperamos 


+, +, “ 1 + + Pd +, 
poder vir a imprimir os boletirs, cuictituindo o sisteiia de fotocópias qi” usamos. 
+ 


O Clube 7-5) e "O Jornal” estão, a portir de agora, em estreita colaloração. Jon- 
4 
forme divulgado por esse jornal em 19.11.82, será criada no seu Suplemento de In 


as — / - , “e P 
formática una secção ="Torsultório 7-2]"- aLerta a questões colocadas na arsa 


dos microconputadores e às quais responderemose. 


Também o nº 5 da revista “Cérebro” divulgou a existencia do Clube Z-BQ. 
Parece-nos, no entanto, que aí é dada muita ênfase À natureza nortenha de Cluie, 
Ora, essa imagem pode afectar um ponco os nossos objectivos - somos mais preten=- 
siosos, queremos chegar mais longe! T, na realidade, a prova já é pelpíével; Para 
além dos muitos assinantes do Porto, e Norte em geral, temos também assinantes 

em LisLoa, Almada, Seixal, Parreiro, JctiLal, Coixbra, Viseu, Castelo Nranco, Ce- 
vilhã, Portalegre, Évora, Torres Vedras, Quarteira, Ioulé, Vila Leal de Santo Are 
tónio, etc... Bnfime.e Cremos que s2 a cede do Clube 7-80 é no Porto, elo ultrapas 


sa, em larga medida esses limites. Tervratulamo-nos com isso e esperamos ainda 


mais e melhor! 


| id Trene O.Sntor 
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SPECTRUM - PARA QUANDO? 


eee 


Em Abril, a “SINCLAIR RESESPCH” anunciou com vasta publicidade o 
“Spectrum”. Nessa altura, a Jorpanhia- afirmava que a máquina existia 
em quantidade suficiente à procura prevista. 

A credibilidade da Companhia manifestava-se no entusiasmo com que um 
grande número de pessoas fazia os seus pedidos. 

No entanto, a certa altura tudo começou a correr mal pois, na realida 
de, a capacidade de resposta não correspondia aos pedidos. Os clientes 
ficaram desiludidos e protestaram vivamente (alguns esperavam há mais 
de 3 meses). | 
Através da revista "Spectrum User”, a Companhia tentava desculpar-se « 
com uma fiança de 10 £ e prometia a entrega da méquina aos clientes 
até finais de Setembro - afinal nem isso aconteceu! 

Se & posição de concorrencia da “SINCLAIR RESEARCH” não foi alterada 
(outras companhias concorrentes defrontam-se com problemas identicos), 
o certo é que, face aos clientes, as suas relações foram gravemente a- 
fectadas. O sucesso que a Companhia oitivera num curto espaço de tempo 
transformou-se rapidamente em descrédito - Até quando? 

Esperemos que a “SINCLAIR RESEARCH” organize efectivamente a sua pro- 


dução para assim desfazer a imacem negativa que forneceu. 


DD soon di 
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SINCLAIR - O QUE EXISTE 
O QUE VAI NASCER 


, e eee eee 


Todos os que vão ler esta página conhecem O teclado É mecanico (embora não seja 
já o ZX81 (400 000 unidades já vendidas equivalente aos teclados profissionais), 
em todo o mundo). Começam a surgir as pri mas de pequenas dimensões. 

meiras perguntas sobre o que irá lançar a A resolução gráfica será de 256 x 192 
SINCLAIR. pontos, e poderemos misturar OS dese - 
A distribuição do SPECTRUM começou com um nhos aráficos com os caracteres do tex 
atraso significativo, e em breve os portu to. 

gqueses terão o SPECTRUM acessível, pelo Existe ainda, para além das 8 cores 
que interessa ve” o que será essa méquina, suscentíveis de definir o fundo, a pos 
Em linhas gerais: - 8 côres - 16 K ou 42K sihilidade de controlar a luminosidade 
de memória - alta resolução de gráficos - e a inversão vídeo, com comandos direc 
- gerador de som incorporado. No futuro, tos. O gerador de som, equipado com um 
terá inter face RS232 e micro-drive as dis. pequeno alti-falante, permite gerar no 
kettes de 3 polegadas (os maliciosos cos= tas musicais por intermédio da instru- 
turam ccmentar que nunca observaram estas cão BEEP. 


micro-drives!) Esta máquina usa codificação para eras 


teres tipo ASC II, o que facilita a ccruri 
cação da máquina com o mundo exterior. A 
velocidade de transferencia de dados É de 
-) 500 bits por segundo, o que vem a melho= 
rar a qualidade e a velocidade de gravação/ 
[reprodução quando usamos o gravador tradi 
cional, 
São anunciadas a extensão tipo R5S232 que 
permitirá ligar esta máquina a uma grande 
gama de impressoras ; os micro-floppiss que 
estão prometidos, permitirão guardar 100 K 
bytes numa micro-diskette de 3 polegadas, 
o que permitirá ler 16 K bytes num segundo, 
É com muita expectativa que o utilizador do 
ZX81 aguarda a possibilidade de usar esta 
quina. E nós, certamente que esperamos re 
produzir em Dezembro os primeiros programas 
(já tratados) no nosso SPECTRUM. 


No entanto JÁ CONHECEM AS NOVIDADES DE 19883, 


A SINCLAIR, a informática, o mundo onde gi- 
ramos todos nós - nada se compadece com imo 
bilismos. 


ão e o ço 
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Vamos transcrever um artige recentemente pu 
plicado, em que é feita a descrição de que 
é tipicamente um “Computer Club” - neste ca 
so o "Southera Gas Computer Club”, 


Este clube pessui membros altamente quali- 
ficados, cemo analistas de sistemas, habitu 
ados cem os “grandes” da IB! e que falam a 
linguagem dos Megabytes, e simples “hobbyist” 
de fim de semana que tem a prátiea do ZX8l. 
O Clube tem 6 meses de existencia e funcio- 
na a partir do encorajamente dado pela di- 
recção de uma grande companhia britânica, 
que decidiu dar um certe impulso aos hábites 
dos seus empregados, ne sentido de ampliar 
a cultura des mesmos (ne campo da informáti 
ca, come é evidente). 





OMO FUNCIONA Us: SOQLPUTER CLUP” É E 





Os projectos aí estão: 1983 - a máquina 
terá a denominação ICL-83 ; inclui um 
écran tipo plano de 20 cm, dois micro- 
-drives, um telefone, um modem para co- 
municações, novo teclado profissional, 
e que mais ..ee e que mais? 

É evidente que a tradicional questão 
“valerá a pena esperar?” é sempre uma 
“falsa questão! 

Faça serpre as contas desta forma: 

20 000800 / 52 = 386400 / semana, ou se 
ja, 952400 por dia como utilização do 
corputador = extremamente econômico! 
Diga lá; - será de esperar um ano ou 
mais, para comprar o último modelo? 

Nao se esqueça que esse último modelo, 
quando saír das linhas de montagem, já 
está antiquado em relação aos“mistérios 
e “top-secret” dos gabinetes de projec 
tos! 


— 0 ——— —— —— —— — ——— — am o 








O Clube pessuíi um bar, ende servem saa- 
des e café, e possui uma área de preces 
samento de dades ends es seus neabres 
pedem usar: PET cem 80 colunas e drive 
de diskettes cem cerca de 96 K bytes de 
meméria RAM; outres dois PET; deis BBC 
modele A, um Acora e um Spectrums 

Vários membres de Clube estão espegiali 
zades em diferentes sectores, desde à 
arte através do monitor colorido de cem 
putador, até à produção de música» 
Nestes 6 meses já foram produzidas 3 
publicações que circulam entre es seus 
60 membros. 

Existe um cemité de 6 membres, que pla- 
nificam a actividade de clube e, sebrs- 
tude, escelhem a bem apetrechada bíblie 
teca que ele pessui, 
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PROGRAMA ” GRAFICO Xd * 
NOV/82 - Alexandre Sousa / PORTO 


x Nesta secção são analisados pequenos programas, 
de forma a obter explicações e comentários aos 
diversos passos do programa. Sugere-se que 08 
leitores, tentem compreender a estrutura do pro- 
grama e que escrevam a colocar as dúvidas pro- 


váveis, 


OBJECTIVO é Representar numa impressora SEIKOSHA 
um gráfico X,Y, representativo de uma série ge 


pontos, cujas coordenadas são nossas conheciaas. 


ALTERAÇÕES SUGERIDAS : Os utilizadores de impres 
sora Sinclair, deverão substituir nas linhas i 
1030,1080,1200; a instr. PRINT por LPRINT, e eli 
minar as linhas 1040 a 1055 e de 1210 a 1230. 
Quem não possui impressora, apenas elimina as linhas 1040 a 1055 e de 1210 a 1230 


ANALISE DO PROBLEMA & 
a) Representação de cada ponto = ordenada .... variável Y 
- abcissa ..ce E X 
b) Os valores das coordenadas, devem ser quardados em variáveis numéricas indexadas, 
do tipo Y(k) e X(k), em que “kº é o Índice respectivo. 


c) Devem ser representados os eixos respectivos, para orientação do gráficos 





d) Ter em atenção que o papel uma vez movimentado, não volta atrás, pelo que os pares 
de valores vão ser ordenados por ordem decrescente de Y. Assim, O valor inicial é o 
valor menor de Y. Sugere-se que ordenem de forma diferente ( crescente) de forma a 


que o valor inicialmente impresso seja O mais elevada valor de Y. 


Exemplo 4% Ordem de impressão 
Ponto 1 Ya3 X=24 1º Y =14 X=10 
2 Y=14  X=10 2º Y=- 8 X=2 
3 Y=8 X=2 32 Yas X=16 
. Y=3 X=24 . 42 ar. X=24 


e) O gráfico representativo da linha vertical (Y) deve ser impresso ao mesmo tempo 


que o valor (X,Y), quando esse valor existe. 
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REM "GRAFICO" 

PRINT "N.DE PONTOS=!; 

INPUT K 

PRINT K 

LET L=1 

DIM YCK) 

DIM XCK) 

CLS 

FOR I=1 TO K 

PRINT "YCS Is! mts 

INPUT YCI) 

PRINT Y<1) 

PRINT "KC"S To! Dm! 

INPUT XCI) 

PRINT XC1) 

LET L=L+2 

IF L>18THEN SCROLL 

NEXT 1 

PRINT AT 20,0; "QUER ALTERAR ?(S2N)" 
LET SS=INKEYS 

IF S8<>"S"AND S9<>"N"THEN GOTO 160 
IF S$8="N"THEN GOTO 988 

CLS 
PRINT 
CLS 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT XC1) 

PRINT AT 20,0:"MAIS ALTERACOES S/N" 
LET SS=INKEYS 

IF S$<>"S"AND S8<>"N"THEN GOTO 300 

IF S$="N"THEN GOTO 900 

GOTO 196 

REM ORDENACAO 

FOR I=iTO K-1 

FOR J=I+1TO K 

IF YCJ)>YCIDTHEN GOTO 950 

LET T=X(J) 

LET S=Yy(J) 

LET XCJ)=XCI) 

LET WC Jeyc 1) 

LET X(1)eT 

LET WC 1)=S 

NEXT J 

NEXT 1 

FOR N=1TO 20 

FOR JeiTO K 

IF N=yC J>THEN GOTO i1ese 

NEXT J 

PRINT CHR$ (46) 

RAND USR 9028 

CLS 

RAND USR 9828 

NEXT N 

GOTO 1208 

PRINT CHR$ (46); TAB (XCJ));CHR$ (23) 
GOTO ieze 

PRINT !=-==————— 1==-==————- 1==——————— 1==" 
RAND USR 9829 

CLS 

RAND USR 9028 


"INDICE DO PONTO A ALTERAR” 


NM "314" dm! ; 
Y<I)> 
Y<I) 
a» A cs E É hi 2m 
MCI) 


A instrução DIM é usada para reservar 
espaço na memória, de acordo com o va- 
lor entrado na linha 20. 


I será o Índice de cada valor entrado 
desde 1 até K. 


O ponto e virgula a seguir à mensagem 
ex. (10), impõe a impressão do próximo 
valor, imediatamente a seguir. 


900 - Rotina de ordenação ; Cada valor 
Y(J) é comparado com o valor anterior 
Y(I) -obs. que inicialmente I=l e J=2 
Se o valor é superior, passa à próxima 
comparação (NEXT J).Quando o valor não 
é superior, terá de se fazer a troca 
de registo ( Y(I) com Y(J)), para issc 
é usado um registo temporário (S). Com 
existe um valor associado X(I) e X(J) 
terá de usar outro registo temp. (T). 
Sempre que troca o valor Y tem de tro- 


car o valor X. 


Na linha 1005 começa e rotina de impre 
Imprimiremos 20 linhas (N) e em cada 1 
verificamos se existe algum ponto Y(J) 
para imprimir nessa linha. Se isso aco 
ce (1080), imprime a marca CHR$(46) e 
ponto (=) - CHR$(23). Se não existe po 
para imprimir,marca apenas o I (1030). 


As instruções RAND USR 929 que existez 
nas linhas 1040,1210,1230 só são usadas 
quando dispomos de impressora Seitosha. 
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C microprocessador Z &Q £ o coração 
do 7X81. É a sua unidade de cálculo 
e de decisão lécica. Apenas entende 
uma linguagem dita “maquina”, e ue 
foi projectada simultaneamente com 
a parte física do microprocescadors» 
Existe outra forma de dialogar com 

c microprocessadcr, que é a chamada 
linguagem ASSEMBLER. Trata-se de có 
digos equivalentes a mnemónicas e 
cue de uma forma simples traduzem 

as diversas operações que depois são 
executadas em linguagem máquina. 
Encontrámos um artigo interessante, 
escrito por KATHLEEN PEEL, e que tra 


tamos de converter para Os .e«ni1os 


Jo Clube Z-2Q. | 


à medida que for ganhando maior perícia au 
PIOgrAMAÇãO , ir-se-à inteirando da veloci- 
dade limitada e do grande consumo da mauf- 
ria em BASIC. Utilizando a linguagem mé ui 
na, obterá grandes progressos. 
O sub-conjunto de 14 comandos que defiri- 
mos nestes artigo, permitir-lhe-á escrever 
pequenas rotinas em linguagem máquina. 
A tabela 1 mostra as mnemônicas e as ins= 
truções equivalentes em BASIC. 
Existem à venda pequenos programas, denomi 
nados “assemblers”, que contêemn as instru- 
cões mneméricas, que você compreende, e 
criam o código máquina, que inicialmente 
você não compreenderá, constituindo assi” 
uma linguagem intermédia entre o que à mão 
quina conhece e o que o homem conhace. 
Comeca pela premissa de qua O nrocessador 
Z2-BM) tom 6 variáveis, denominadas B, C,”, 
E, e L. Estas variáveis só podem aceitar 
um nénero inteiro compreendido entre o Q e 
235 (ve. céádigos 5, 14, 22, 30, 38 e 46). 
As variáveis pcdem ser agrupadas em pars 
RO, DE e 1, portanto suscertíveis de con- 
ter um número inteiro de Q a 65 535 (ve 
códigos 1, 17, 33). As variáveis e Os pa- 
res de variáveis podem ser incrementadas 

| 
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Ccédigo 


1 


Mneménica 
LD RN 
LD GN 
LD DN 
LD E MN 
LD HM 
LD LE 


LD BC NNW 
LD DL Ni 
LD HL NN 


INC B 
INC C 
INC D 
INC E 
INC H 
INC L 
I.IC TC 
INC DE 
INC HL 
DEC B 


DEC € 


ADD 


88 


AD 


EE 


pao Ro ao do o o o o 
Pz1H0OUramoau 
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Instrução 


equivalente em 


BASIC 


LET BaN 
LET C=N 
LET Dai 
LET EsN 
LET Iai 
LET Lei 
LET BC=NN 


LET DE=EN 


LET HL=Ny ; 
LET B=B+1* é) 
LET C=c+1" 
LET D=D+1" 
LET E=E+1* 
LET Ratit)" 
LET L=L+1º 
LET BC=2C+ 
LET DE=DE+ 
LET HL=!] +1 
LET 9=2-)* 
LET C=Colº 
LET D=D-1" 
LET E=E-1* 
LET H=H-1" 
LET L=L-1* 
LET BC=BC-1 
LET DE=DE-1 
LET EL=HL-1 
LET HL=L+BC | 
LET HL=IL+DE 
LET A=A+B* 
LET A=A+0* 
LLT A=A+D* 
LET A=A+E* 
LET AsA+I* 
LET A=A+L" 
LET A=A-B* 
LET A=A-C* 
LET A=A-D* 
LET AsA-E* 
LET A=A-ER 
LET A=A-L* 
LET A=B 

LET AeC 

LET AsD 

LET A=E 

LET A=H 

LET AsL 

LET B=A 

LET C=A 

LET D=A 


(centínua na pág. seguinte) 


3) 


2) 


Faça subir os dados no écran (“sroll”). 
A seguir ao número do código está um nú 
mero com 5 dígitos, o “endereço” do có- 
digo que deu entrada. Começa em 165114 e 
aumenta um, de cada vez que fizer entrar 
um novo elemento do código. 

Pode deslocar-se para qualquer “enderc- 
ço” se a variável F for igual a Z, ou 
deslocar-se para um certo “endereço” sº 
F for igual a NZ. Quer dizer, o último 
teste era um Zero ou não-zero? 

À forma destas instruções pode ver-se na 
tabela 2. 

Para conseguir escrever programas em ci 
digo máquina, torna-se necessário estar 
apto a dominar as atriLuições das variê- 
veis e, para isso, é necessário corpreen 
der a diferença entre as instruções di- 
rectas e indirectas. 

Uma instrução directa com um par ds va- 
riáveis seria: carregar a variável cem 
um número, normalmente um endereços !'x2 
instrução indirecta com um par de varii- 
veis seria: colocar num endereço dado pz 
lo par de variáveis EL um número(ve códi 
ço 54) ou qualquer variável simples (vo 
cód. 112 a 117, 119) ou: colocar numa va 
riável simples o conteúdo de um endereço 
dado pelo par de variáveis il (ve cód. 

70, 78, 86, 94, 102, 110. Uma instrução 
indirecta torna-se necessária para colo= 
car algo na memória (“Poke”). Use “Deck” 
para procurar algo na memória, por exer- 
plo, algo que se encontra no ficheiro de 
exibição (“display file”). 

O últ e mais importante comando go 
que tem o código 201; RETURN., Num progra 
ma em código máquina, a omissão desta 
instrução conduz invariavelmente ao que 

é conhecido por “desmoronamento” (“crash”) 
do sistema: as teclas tornam-se ineperatie 
nais e a imagem do monitor desaparece. “e 
rá que desligar a alimentação e ligar de 
novo para conseguir retomar o controls da 
máçúinas Por isso, a regra de ouro será 
gravar sempre o programa antes de o fazer 
executar pela primeira vez, já que é mui- 
to mais fácil obtê-lo a partir do grava- 
dor do que ter de o re-escrever, Do nro= 
grama gravado, poderemos então retirar e 
ventuais erros e, só depois, executí-lo 
com seguranção 

Detire quaisquer expansões da memória 2 
introduza o programa 1. Escreva Print 

Peck 15670, Pesk .0671 e verifique se am 
Las as respostas dao 8. Fazemos entrar as 
nossas variáveis no Rem 2 e o código ng- 
quina no Rem 1. 


Deste modo, é importante que o comprimento 
do Rem 1 esteja absolutamente exacto. Se 
naquelas respostas não tiver obtido 8, re= 
-introduza Ren dl. 

Poke 16510,0 
Isto iniLe a edição do primeiro Fem. Dê a- 
gora entrada ao programa 2, fazerdo Run 800. 
Quando o L gráfico aparecer, escreva 
33/30/65/70/35/126/128/79/6/0/201/R/ 
en que 7 significa Newline. R ilewlire dará 
origem à saída do carregador do código mão 
quinas 





1 REM 12315678901234567890123 
45678901234567890123456789012345 
57890123456789012345578901234567 
8901234557890123455789012345E789 À 
0123456789012345578901234567890 
2 REM 

200 CLS 

250 LET C=USR 16514 

300 STOP 

800 FAST ? 

8cl FOR E=16514 TO 16654 

810 SCROLL 

820 INPUT J 

830 POKE K , J 

840 PRINT AT 7,0; K; TAB 8; J 
850 NEXT K 


Programa 1 





1: EEM 12345678901234567890123 
45678901234567890123456789012345 
678901234557890123456789C1234567 
89012345678901234567890123456789 
0123456789012345678901234567890 

200 CLS 
210 SLOW 
220 FOR Ks2 TO 7 
230 PRINT AT K, 8 “a” 
240 NEXT K 
LET C=USR 15514 
STOP 
FAST 
FUR K=16514 TO 16664 
SCROLL 
INPUT J 
POIE K, J 
PRINT AT 7, O; K; TAR 8; J 
) NEXT K 


Prograre la 





(continua na pág. seguinte) 


TABELA 1 (conte) 


Cédigo  Mnemônica Instrução ; 
equivalente | 
em BASIC 

95 LD E A LET EzA 
103 LD H A LT FA 
111 LD LA LET L=Ã 
62  LDAN  LETASN 
60 INC A LET A=A+ o 
61 DEC À LET A=A-1 
112 LD(HL) B POKE FL,B 
113 LD(IL) C POKE HL,C 
114 LD(HL) D POKE HL,D 
115 LD(HL) E  POKE HL,E 
116 LD(!L) É  POKE HL,H 
117 LD(HL)L POKE HL,L 
119 LD(EL) A POKE HL,A 
- 54.) LD(HL) N  POKE HL,N 
70 LD B(HL)  PEEK HL,D 
78 LD C(HL)  PEIK HL,C 
86 LD D(HL) PEEK HL,D 
94 LD E(HL) PEEK HL,E 
102 LD H(HL)  PEEX HL,H 
110 LD L(HL)  PEEX HL,L 
126 LD A(HL)  PEEX HL,A 
194 JP NZ NN 
195 JP NN 
202 JP Z NN 
201 RETURN 





(ve códigos 4, 12, 20, 28, 36, 44, 3, 19, 
35, decrementadas (ve códigos 5, 13, 2), 
29, 37, 45, 11, 27, 43) de uma unidade.Po- 
de também acrescentar a HL DC (código 9), 
ou DE (código 25). 

Se quiser atribuir um número à variável D, 
o número que segue o código 6 (ld 9 K6 é 
o número a atribuir a B. Igualmente, cem o 
código 17 (ld DE NN) são os dois números 
que seguem o código 17 a atribuir à vorião 
vel DE.y representã um único niúinero; NY, 2 
números. Mesmo que qualquer valor seja zero 
tem de ser incluído. Se o processador espe- 
rar dois números, deve dar-lhos. Por ex.i 


Basic Mnemônica Cédigo Má. 
LET DE=16514 LD DE NN 17 130 64 
- LET BC=17152 LD BC NN 1 0% 


nepare-se que; 
16514 130 64 
. 17152= OQ 67 


No código NN, o segundo número é sempre wul- 


f 





(130 + 64"256 - não se esqueça!) 


tiplicado por 256 para obter o seu velore 


15514= 130 + 54256 
17152= O + 67256 


Algures nc processador está uma outra va 
riável, A, inicial de acumulador. Za d- 
nica varifvel que pode ser adicionada a 
(ve códigos 128 a 133) ou subtraída de 


(ve códigos 144 & 149) uma das outras va 


riáveis. Podemos também transporter o 
conteúdo de qualquer uma das variáveis 
para À (ve cdaigos 120 a 125), ou o con- 
teúdo de A para uma outra variável (ve. 
códicos 71,79,87,95,103,111). A pode se: 
içualada a qualquer número entre P e 255 
(ve código 62) e, além disso, pode ser 
increnentada (ve céde 60) ou diminuída 


“(ve cód. 61) de uma unídade. 














A fltima variével, F (“flag”), será deti É 
nida pela próxima : relação. Devem ter re 
parado num asterisco em alguns dos códi 
gose Ele indica que a seguir a esta ops- 
ração, terá lugar um teste para verifi- 
car a ocorrencia de 7 como resultado da 
operação. | 
Basic Mnenónica Código l'áge 
LET BaB=] DEC B sb 
A variável F é ajustada complementaruen 
te nesta operação do seguinte modoi 
TABELA 2 
HMneménica. | Cód. MáGe Endereço 

JP NN - 195 130 64 

JP Z NN 202 130 64 

JP NZ NN 194 130 64 S 











Todos os exemplos vão ao endereço 16514 





Se P é igual a Q- variável F=7 para 
zero 
Se P não é igual a Q - variável F=NZ pa 
ra não-zero 
A variável F só é alterada por operações 
marcadas com asterisco«A linguagem ma= 
quina não tem números de linha, portan- 
to não h4 equivalente a Coto um número 
linha, como em BASIC. O processador Z-80 
pode deslocar-se para qualquer espaço na 
memória, denominado um “endereço”. 
Quando coreçar a operar no seu ZX-81 05 
programas em linguagem máquina exerpli- 
ficados, verá os números da linguagem 
com que está a trabalhar. 


(centinua na pág. seguinte) 


EN 


Endereço 


16514 
16517 
16518 
16519 
16520 

16521 
16522 

- 16524. 


Programa 2 


16514 


- 16517 
-. 16518 


16519 
16520 
16521 
16522 
16524 


Programa 3 


16514 
16517 
16518 
16519 
16520 
16522 
16523 
16524 
16527 
16528 
16530 


Programa 4 


ad 


“ Código Máquina 


33 30 65 
70 
35 
126 
128 
79 
6 O 
201 


Acrescente dois números 


- 733 30 65 


70 

35 
126 
144 

79 

6 O 
201 


Subtráia dois números 


194 138 64 
79 

6 O 
201 


Multiplíque dois números 


Mneménica 


LD HL NM 
LD B(NL) 
INC HL 
LD A(HL) 
ADD A B 
LD CA 
LD BN 
RET 


LD HL NN 


LD B(HL) 
INC HL 
LD A(HL) 
SUB A B 
LD CA 
LD BN 
RET 


LD HL NN 
LD B(HL) 


“INC HL 


LD C(HL) 
LD A N 
ADD AC 
DEC B 
JP NZ NN 
LD CHA 
LD BN 


Rasic 


IA A À Cy mas 


o-3I DNA ct bas 


= IDO IOADA dc ty 


[e md 


LET HL = 16670 
LET 83 = PZESR HL 
LET HL = HL+1 
LET A = PEEX 
LET A = A+B 
LET C = À 

LET B = O 
PRINT C 


LET HL = 16670 
LET B = PEEIL il 
LET HL = IL +1 
LET A = PEEK FL 
LET A = A-R 
LET C = À 

LET Bs O 
PRINT C 


LET HL = 16670 
LET B = PLEK &L 
LET NHL = H +1 


1 WwW[]]]]—w——————— e m— 


"“CHLRS 


em tree 


Tal como os americanos denominam o animal 
doméstico de “PET”, assim o diminuitivo | 
do circuito integrado é “CHIP”. 

A história do “Chip” começa na areia ou 
no quartzo, o partir do silício metálico, 
purificado a 99,9% 

A electrônica de hoje é na realidade um €& 
norme conjunto de “comutadores” de sili- 
cio, ligados por uma rede finíssima de fi 
os metálicos. 

Olhando para trás, à distancia de 35 anos, 
o ENIAC, ancestral de todos os computado- 
res digitais, possuía (apesar das suas 30 
toneladas) menos componentes do que exis- 
tem hoje em 0,6 cmé de silício metálico. 
Podemos alinhar números e números, numa 
infinidade de curiosidades que hoje não 
nos espantam; apenas encolhemos os ombros 
quando verificamos cada novo passo no a= 
vanço da tecnologia electrónica. 

Em onze anos, o número de cálculos efec- 
tuados num segundo, por um microprocessa- 
dor, passou de 50000 para 1000000. Mas 
continuaremos a achar graça ao “cartoon” 
onde o desenhador traçou um boneco em que 
a empregada de limpeza estava a varrer os 
“bits” que saíam do computador. E 
No último ano, foram vendidos mundialmente 
800 000 computadores do tipo “PERSONAL”. À 
maioria dos compradores não faz idéia do 
funcionamento básico da máquina que com = 


pram (nem necessita saber), porque o “chip” 


& cada vez mais fácil de usar. 
Paralelamente ao crescimento das vendas de 
computadores para uso pessoal, crescem os 
novos serviços dirigidos para esse campos 
No nosso país, estaremos na fronteira para 
esse ramos. 

Questões?? 

Compras sem sair de casa? Empregados a e e 
xercer funções no seu lar, ligados à em- 
presa apenas pelo terminal do computador? 
Como podem as crianças ser estimuladas pe- 
lo computador,. para encontrarem no futuro 
cura para a fome e a querra? 

Estas questões, que não eram imagináveis 
em 1950, podem hoje ser colocadas sem que 
o nosso interlocutor se mostre demasiado 
incrédulo. 

Amanhã, um bilit de transistores estarão 
num simples “chip”, ou seja, mil vezes 
mais do que hoje possível. 

Uma meméria não volátil poderá guardar o 
texto de 200 dos melhores livros que esco=- 
lhermos. 


Os circuitos do futuro serão construf- 
dos, não pelos metalúrgicos mas pelos 
químicos. O computador não end monta 
do - assistiremos ao crescimento do com 
putador a partir de uma pequena molécu- 
la. Desta forma, creiam que os “robots” 
irão reproduzir-se; os computadores i> 
rão falar, andar e ler. 


As ondas de choque, do crescimento da 

electrónica, atingem-nos a todos e em 

todas as direcções. Difícil é não sen- 
tir o nervoso miudinho dos grandes dias 
e ficar exasperado quando o programa : 
que reproduzimos da cassete não passou, 
e o ZX81 mais uma vez ficou em branco, “ 










4 
Ed 
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, BACILIUS 


VA PULSO: 


q——— ENTIRE TA 


ca SATA ts 


» SAIA VAPULSAS 


SECÇÃO DO LELTOS 











10Se e cCPINICSS. se D IDAS. e e JIRESTTOS. .e ONENT PIOSco eOPI 





IÕES. «o DUVIDAS. o e SUGESTÕES. o « COME 








1 REM "RAIZES" 
s REM RAIZES DE FUNCOES POR FALSA POSICAO 
10 PRINT "LIMITE INFERIOR" 
15 INPUT Q 
20 PRINT Q - 
25 PRINT "LIMITE SUPERIOR" 
30 INPUT W CRIÁMOS ESTA SECÇÃO PARA Sl. 
35 PRINT MW COLABORE. 
45 PRINT "ERRO DESEJADO" 7 NOS! 
sa INPUT E sa 
= 55 PRINT E 
| 68 LET X=Q 
65 GOSUB SOB 
78 LET Zi=A 
75 LET X=b 
68 GOSUB SOB 
85 LET Z2z=A | 
86 IF Z1xZ22>0THEN PRINT "NAO EXISTE RAIZ NO INTERVALO EXAMINADO" 
87 IF Z1XZ2>0THEN GOTO 148 
90 LET C=(QX22-WXZ1 )/<22-721) 
95 LET X=C 
100 GOSUB SOR 
105 LET Z3=A 
110 IF Z1iXZ3<OTHEN LET W=C 
115 IF Z2XZ3<0THEN LET Qul 
125 IF ABS Z3>=ETHEN GOTO 68 
127 PRINT "RAIZ= "5C 
130 PAUSE 300 
135 CLS E 
148 PRINT "NOVO INTERVALO 7 CSN)" 
| 145 INPUT SS 
150 CLS 
155 IF S$="S"THEN GOTO 10 
160 IF S$="N"THEN LIST 
499 STOP . 
s20 LET AzXxLN Xx-1 
sas RETURN 
998 CLEAR 
999 SAVE "RAIZES" 














Este “MÉTODO DE FALSA POSIÇÃO PARA DETERIINAP PAÍZES DE FUNÇÕES” foi-nos fornecido 
por Ruí Miguel Sousa, membro do Clubs 7-2A, 


(o PA função a analicar defins-se na linha SMP (subrotina) 


Por exemplo, para o limite inferior do intervalo 1 e para o limite superior 2, € 


para o erro, obtemos, em certa de dez segundos, o zero da função xºLNxel, 10 7532222º 





110 
120 


170 
188 


350 
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REM "BIORRITMO” 
REM solado tola 


REM kkk BIORRITMO ZX/91 KxX 
REM saoa aaa ooo atada oo added 


PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
PRINT 
INPUT 


) PRINT 


PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 


TRADUZIDO E ADAPTADO 
POR ALBERTO FERNANDES 
0,0; "biorritmo de” 
20,0) "ESCREVA O NOME” 
21,0;"E DIGITE NENLINE” 


AT 
AT 
AT 
A$ 
AT 0,1238898. 

1,0; "nasceu em" 
20,8) "INTRODUZA O DIA DO MES" 
- 1,94 FDL 190) FDs "=" 

20, 13) "MES DO NASCIMENTO" 


1, 12+CFM<10D:; FMs "=" 
20,13; "ANO DO NASCIMENTO” 


1, 15)FY 
e,B;"biorri/P7/º 
20, 13) "DIA PARA O BIORRITMO" 


2,9+<( BD<10);BD; "=" 
20,13:;"MES" 


2, 12+( BM<10>:BM) "=" 
20,13: "ANO" 


2,15;BY 

20,0; "GRAFICO 1=FSXH2=EMAKI=1TRKS=MD DO 
TIP € 

AT 20,03" ” 
AT 21,05" ” 


LET S=2 

LET D=FD 
LET M=FM 
LET Y=FY 


GOSUB 


2000 


LET AD=—X Re Ro | 
FOR Z=FYTO BY | | 
IF Z/4-1INT <Z/4)=0AND 2/100-INT <Z/100><>2AND FY<>DBYTHEN LET S=S+1 


NEXT Z 
LET AD=AD+S+36SXCBY-FY >) 
LET D=BD 
LET M=BM 
LET Y=BY 
GOSUB 2000 
LET AD=AD+X+<M>ZANO Y/4-INT CY/4)=DAND Y/100-INT (Y/100)<>0) 
GOSUB 2590 
| PRINT AT 4.0)"fFisico! "TAB CIS-CINT (99%A+. 5485) INT CIQBXA+.5)/100 
PRINT "emocional'"s TRE CIS-CINT (99XB+. 5)<8))) INT (100xB+.5)/100 
PRINT “intelectual: "; TRE CIS-CINT (99XC+. 5)<0)); INT C100%C+. 527100 
a q "media: "s TAB C1S-C INT C99%D+. 5 <B>) INT CIBOXD+. 527100 
PRINT AT 11,1v"dias bons”* 
PRINT AT 21.1:"dias maus" (centinua na pág. 
PRINT AT 9,0;"9rafico Para os proximos 30 dias” seguinte) | 


520 
930 
240 
950 
968 
978 
iB10 
1020 
1021 
1022 
1823 
1824 
1838 
1040 
1508 
1320 
1330 
1550 
coil 
coco 
c830 
cosa 
2050 
com 
cura 
cosa 
c0IR 
2100 
ciia 
ciclo 
ecoa 
2910 
2320 
2530 
2540 
2560 
cEUa 
er Bo 
980R 
3308 


FOR P=iTO 21STEP 2 

PLOT Q,P 

NEXT P 

FOR P=BTO 6ISTEP 2 

FLUT Psdl 

NEMT 

FOR G=ADTO AD+30 

COSUB 2320 

IF TIP=iTHEN LET. D=A 

IF TIP=2THEN LET D=B 

IF TIP=3THEN LET D=C 

IF TIP=4THEN LET D=D 
PLOT 2*CG-AD>+1, INT C10X%D+.55+11 
NEXT G 

PRUSE 1000 

CLS 

CLEAR 

GOTO 1 

LET x=D 

IF M=2THEN LET X= 31+x 
IF M=3THEN LET X= 59+x 
IF M=4THEN LET Xx= 90+X 
IF M=STHEN LET Xx=120+xX 
IF M=6THEN LET X=151+x 
IF M=7THEN LET Xx=161+xX 
IF M=STHEN LET x=213+X 
IF M=52THEN LET x=242+X 
IF M=10THEN LET X=273+X% 
IF M=11 THEN LET X=38093+xX 
IF M=12THEN LET x=334+X 
RE TURN 

LET G=AD 

LET A=SIN CexPIXG/23) 
LET B=SIN C2áPIXG/28) 
LET C=SIN C2xPIXG/33) 
LET D=CA+B+C 573 

RE TURN 

o TOP 

SAVE "BIÓRITMO" 

RUN 
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REM XXKFICHEIRO CLIENTESXX ié 


AVTOR: UI PEREIRA = PORTO 
1 REM "FIC-=1" 

1200 DIM ASÇ 100,80) 

1189 DIM AC 100) 

120 PRINT "quantos clientes 7". ; 
138 INPUT C i 
148 FOR F=iTO C 

150 PRINT "nome e morada ?" 

1682 INPUT BS 

178 LET ASCF D=B8+" XX" 

188 PRINT "montante em divida... 7" 

198 INPUT ACF) 
e080 CLS 
212 NEXT F 
2280 GOSUB 9100 e 
239 REM MENU - 
249 CLS 

esa PRINT "X menu X" 

255 PRINT 

256 PRINT 

260 PRINT "1. LISTAGEM TOTAL DE CLIENTES" 

265 PRINT 
78 PRINT "2. CORRIGIR UM NOME OU MORADA” 
27s PRINT 
230 PRINT "3. ALTERAR O MONTANTE EM DIVIDA” 

285 PRINT 

298 PRINT "4. INTRODUZIR NOVO CLIENTE” 

2595 PRINT 

308 PRINT "5. XDELETEX DE UM CLIENTE” 
"305 PRINT 

3180 PRINT "6. LISTAGEM CLIENTES DEVEDORES” 

315 PRINT 

320 PRINT "7. IMPRIMIR UM XADORESS LABELX" 

3e5 PRINT AN 
3380 PRINT "8. XSAVEX DO PROGRAMA EM CASSETE“ 

335 PRINT 

340 PRINT "9. XSTOPX" 

345 PRINT 

350 PRINT "pedido 7" 

360 INPUT B 

378 CLS 

388 IF B=STHEN GOTO 8800 

3992 GOSUB BXigaao 

488 GOTO 2480 

10808 LET Hai 

18180 FOR D=iTO € 

19280 GOSUB 9700 

1838 HEXT D 

1948 RETURN 

2800 GOSUB 9500 
28010 IF F=i1THEM kKETURN 
2928 LET x=0 
2039 LET M=x+1 
2640 IF ASÇG,X)="K"THEN GOTO 2880 
2950 IF ASCG,X)="kk"THEN GOTO 2108 


2060 
eB70 
cosa 
e0>0 
cioo 
2110 


— 2120 


2130 
30002 
3818 
3820 


3030 
3240 
4000 
4210 
4020 
42030 
42040 
4250 
4268 
4070 
4030 
4090 
000 
3810 
020 


PRINT ASCG,X)2) 

GOTO 28030 

PRINT 

GOTO 2030 

PRINT "novo nome e morada 7" 
INPUT B3S 

LET ASÇG)=B$+" XX" 
GOTO 9108 

GOSUB 9580 
PRINT "antido montante -S";ACG) 
PRINT "novo montante... 7" 


INPUT A<G) 

RETURN 

IF C<1BOTHEN GOTO 40380 

PRINT "clientes a mais...” 
RE TURN 

LET CelC+1 

PRINT "nome e morada 7?" 
INPUT B$ 

LET ASCC>DmB8+" XX" 

PRINT "montante em divida 7" 
INPUT ACC» 

GOTO S1080 

COSUB 95080 

IF F=i THEN RETURN 

LET AS(G)=!'227222222222222222222222222222022222222222222222222002 


RSS A GO DE E AE ME E AE E A 


5230 
Za40 
=250 
EBBB 
EB18 
6020 
EB30 
EB4B 
6Bs0 
7200 
7810 
7820 
7230 
784B 
s280 
8210 
agzó 
2830 
82480 
9808 
9218 
9228 
9230 
9648 
3099 
q190 
9116 
q120 


GOSUB S100 

LET CmC-1 

RETURN 

LET H=0B 

FOR D=i1T0O C 

IF ACD>>OTHEN GOSUB 9700 

IF ACD>>BTHEN PRINT ,ACD5,,.. 
NEXT D 

RETURN 

GOSUB 3300 

IF E=Íi THEN RETURN 

LET H=Q 

LET D=G 

GOTO 97080 
PRINT "Prepare 
PRINT "e digite 
INPUT B$ 

SAVE “FIC-1" 
GOTO 248 

PRINT “"oravou o Programa” 
PRINT "na cassete 7..." 

INPUT BS 

IF B$< 1 )="N"THEN RETURN 

NEW 

REM BUBBLESORT 

LET J=B 

FOR D=iTO .-1 

IF ASCDXASCD+ÍDTHEN GOTO 2208 


"tape" P/ gravar" 
"neyline"” 


9130 
9148 
9150 
9160 
9170 
9138 
9190 
9280 
9210 
9220 
9439 
9508 
9310 
9520 
9330 
93548 
9350 
9560 
29570 
95338 
9538 
9531 
9592 
9600 
9610 
9620 
7630 
2648 
2650 
2658 
9670 
9693 
3708 
97108 
9728 
9738 
9748 
9758 
3760 
9778 
9788 
2738 
3888 
9218 
9328 
3340 
2253 


LET K$S=ASÇD) 

LET K=AÇD) 

LET ASÇD)=A4ÇD+1)> 

LET ACD>=AÇD+1 > 

LET ASÇD+1 )=KS 

LET ACD+1 )=K 

LET J=1 

NEXT D 

IF J=BTHEN RETURN 

GOTO 9108 - 

REM NAME OU NUMBER 

LET F=8 

PRINT "NOME OU NUMERO (1/-2)27" 
INPUT J 

IF J=2THEN GOTO 2630 

PRINT "qual « o nome... 7?" 
INPUT BS 

FOR K=1i TO C 

IF AScCkKIXTO LEN (CB$>)=BE&THEMN GOTO 9660 
NEXT K 

PRINT "nao existe ESSE CLIENTE NO" 
PRINT "MEU FICHEIRO..." 

PRINT "REGRESSO AQ m e n u.ce! 
LET F=1 

PAUSE 208 

RETURN ? 

PRINT "qual e numero ?" 

IHPUT G 

RETURN 

LET G=k 

RETURN 

REM PRINT A CUSTOMER 

LET x=0 

IF H=1 THEN PRINT D; 

PRINT TAB (5); 

LET x=Xx+1 

IF ASCD,X)="X"THEMN GOTO 9788 
IF ASCD,X)="KX"THEN GOTO 39318 
PRINT ASÇD,X)5; 

GOTO 97380 

PRINT 

PRINT TAB (5); 

GOTO 9730 

PRINT 

PRINT 

RETURN 

RAND USR 99841 
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ao 


coTo zag 


499 

soa PRIMT AT S2.9:"FICHAS" 

s194 FOR A=1TO q 
515 PRINT AT A+r1LA. 0; CHRS CITAR to tais 
Aa > 

s2a MEXT A 

sSs30 PRETURH 

ssa FOR A=9STO 13 

SsSsS PRIMNMT AT A.B:SE 

sea HEXT A 

Ss" RETURH 

SOS IF AEBCL2IL"AVOR CASCZ2>>" I“AND ASS 
"MP AHD ASC2>D<>"T"!>THEM GÓTO. 209 

619 GOSUB 559 

6290 IF ASC2>="M"THENM GOTO sas 

S2S IF ABC2>="T'THEHN GOTO 39828 

7990 PRIHT AT 12.9:"FICHA “5 ASCZ2> 

713 LET G=CODE AS(<.2>—-37 

729 PRINT AT 1i4.9;:"HOME PP" 

725 IMPUT HE<G> 

Tas PRINT AT 14.0:HE<G>. AT 165.84 "VALOF 
“4s PRINT AT 17.3:"HO MES 

?75sa FOR A=1TO 12 
“?SS PRINTAT 18.0: "DE “4 UEC SHA-ZTO FF 
35 so “e 02 

7Ea INPUT D<CG.A> 

752 IF D<CG,AD<AOTHEH GOTO 775 

7ES HEXT AR 

775 GOSUEB saBg 

785 GOTO =z9a 

saa PRINT AT 13.80: "HOVO"Ns AT 192.84 "mMAas: 
ho" 

Sas IHPUT mM 

S1A LET EBS=STRS$E mM 

So LET ME=]2E 

559 LET MEC S-LEH BSTO >=BS 

s49a GOTO sas 

saga PRINT AT 1S8.9:"NOVO"s AT 19.054 "“TIT! 
“a .. k 

985 IMPUT Bs 

213 LET TE=2s 

925 IF LEM BE>322THEH LET BE=BSCTO 32> 
935 LET TEL C3B3B-LEH BS>-2TO >=B& 

945 PRINT AT a.a: TE 

9sSs GOTO fTFTS 
ur IE AGCPDC"A"OR AS.2>>"I"THEM GOTO 
as 

1919 LET G=CODE A$&[.2>-37 

1AZO LET P=CODE AS< 1>-CODE “O 

1020 PRINT AT 4+PLZsMEBCG> 

jada FOR M=1TO 12 

1942 IF DLG.M>2<9OTHEN GaoTO 298 | 
1945 LET B=2+IHMT <DCG.Mo>oH4G- VAL MB+H.S > 
1254 IF B>41THEH LET B=41 

1OSS LET D=P+ili+H4+Him 

LOCA GOGSUE 124 

1065 HERT mM 

12aTS GATO Zoom 


ADAPTAÇÃO DE FERNANDO AGUIAR 


PROGRAMA º HISTOGRAM 








REM "HISTOGRAMAS" Utilização ; Traçado de gráficos de barras, permitindo 
REM LOG/PORTO a vísualisação de três dos nove tipos de 
DIM T$(32) dados que podem ser registados no mesho 
DIM MEC7> ficheiro. 
DIM NH$( 9,5) 
DIM D(9,12) 
DIM Z$( 24) 
DIM S$(7) 
LET M$C7)="1" 
LET LE="JFMAMIJJASOND" 
LET Ug=" JANFEVMARABRMAI JUN JUL AGQSETOUTNOVDEZ" 
GOTO 300 pp 
da b CHAVES USADAS PARA INTROD à se = 
NEXT C E ALTERAÇÃO DE DADOS : 16K —- 
IF C>41THEN RETURN . 5 <x81 - 
FOR C=CTO 41 ETº Entrada do título * FICHAS - 
UNPLOT D,C “Er” -Entrada do valor máx. Bor a a E - 
HEXT C “EAº -Entrada de dados (A) E ERA 

4] » e 
RETURN EB - (B) Cc 32K - 
INPUT AS ta ererenento E = 
IF Ag="C"THEN GOTO 3082 El” - e (1) P.. 
IF A$="S"THEN GOTO 420 Aa 
IF LEN AS<>2THEN GOTO 208 TI FT AL 
IF A$C 1)="E"THEN GOTO 600 E isÊ se, + 


IF B$c1)5<>" "OR LEN B$=1THEN GOTO 425 


E + 


GOTO 40% 


235 IF ASC1>>"B"AND Ac 1)<"4"THEN COTO 1006 


GOTO 286 
FAST 
CLS | 
PRINT TS;AT 1,0;M$;AT 3,0; "BARRAS"4AT 20,64"0" 
n 
PRINT AT RS?) Dest; ZM Equiar ou tapes ao nadas 
5 NEXT A jo ínibido com um valor neça- 
tívo (pe ex. -) ) 
PRINT TRE B;L$ di 
FOR A=ITO & Escolha das barras visuálisada. 3 
' o RIR) 
qt Rd 4+A,8;A; "10 a “22 nei "48". significa 
GOSUB SBB a ordem :; Barra C,Barra A,Barra B 
SLOW dó) DE ca 
GOTO 20A C”º —- elimina os dados armazena 
LET B&=T5 dos 


B$=BSC2TO » 


IF ES(LEN B$&)<>" "OR LEN B$=iÍTHEN GOTO 444 


LET 


GOTO 
IF B$=" "THEN LET B$="HISTOCRAMAS” 


B$=BS( TO LEMN B$-1: 
425 


PRINT AT 21,8;">INICIE Q GRAVADOR E ACCIONE Gº 
IF INKEY$<>"G"THEN GOTO 468 


q CHAVE BS 
à PRINT AT 21,6;2$,AT 21,9;L8 


GOTO zoa 




















” Sº - Gravação dos dados com » 
título escolhido. 





as 
100 
120 
130 
146 
150 
160 
com 
282 
coa 
cus 
eos 
co6 
21 
2eU 


do 


240 
258 
ce 
19868 
1882 
1004 
1E1A 


Ltcis 


Este programa demonstra como pode ser produsida uma ficha tipo 19 
matriz e inscrever dados alinhados no écran, obtendo adição / 
| subtracção dos elementos inscritos no quadro 


REM "PRODUCARO" 
REM "LOG/PORTO” 
DIM AÇ6.,5) 

FAST 

FOR X=BTO €3 
PLOT X,32 

NEXT x 

FOR Y=4TO 38 
PLOT 947 

NEXT Y 

FOR N=iTO 6 
FOR M=i1TO 5 
LET AcN,Mo>=000 
PRINT AT NX2+6, EXM-1s5ACN.M) 

HEXT M 

NEXT N 

PRINT AT 2,8; "FICHA" 

PRINT 1080;TAB 6:13 TAB 12;2;: TRE 18;3; THB 24; 4; TRE 96:95 
FOR N=1ITO 6 

PRINT AT N$2+6,0:H 





HEXT H. 

PRINT AT 20,0; "ENTRADA DA LINHA DEPOIS COLUNA” 
INPUT N 

IF N>6THEN GOTO 200 

INPUT M 


IF M>STHEN GOTO 203 

PRINT AT 28,0; "NUMERO AR ACRESCENTAR á 
INPUT U 

LET ACHoMo=ACH,Mo+U 

PRINT AT CHEZ+HEDCMEe-L DRE, MO 

PRINT AT 298,0;"MAIS ALTERACÕOES 7 <S/N) ” 


INPUT xE 

IF XE<>"G"THEN GOTO 1886 

GOTO 164 

PRINT AT 20,0;"SE QUER GRAVAR LIGUE GRAVADOR E N.L.” 
INPUT AS 

IF A$E<L>""THEN STOP 

LET A$="FRODUCHO” 

SHvVE AS 


DICIONÁRIO 
(contine ) | Interactive/Monitor 





INTERACTIVE - Processo de trabalho, pelo qual o computador responde ímediata-= 
mente a quaisquer erros que o operador tenha cometido, ou a quaisquer informa- 
ções que lhe tenham sido pedidas. Em certas actividades profissionais e na escri 
ta de programas, este programa é muito mais rápido que qualquer outro. 


INTERFACE - Interconecções entre um computador e dispositivos, como a impressora 
ou o “modem”, que lhe são ligadose 


INTERPRETER - Programa que tradus uma linguagem de alto nível (geralmente BASIC) 
em linguagem máquina, e que executa cada instrução, linha por linha, imediatamen 


tee 
INTERRUPT = Sinal que impede o processo de obedecer a qualquer outro comandos 


I-EEE (Institute of Electronic and Electrical Engineers - USA) = Grupo de pessoas 
que estabeleceu um mímero de modelos para um intercambio de informação mais ore 
denado, entre vários dispositivos electrônicos, incluindo computadores. 


I/O (Input/Output) - Entrada /Saída. 


IMPACE (Printer) - Impressão em que os caracteres são formados pelo contacto de 
uma fita no papel, podendo produzir cópias em papel químicos. 


INTEGER BASIC - Relaciona-se apenas com números inteiros, desprezando fracções 
ou partes decimais. | 

KILO (K) — Abreviatura de Kilo, significando normalmente 1 000, mas equivalente 
a 1024 (210) quando se refere a memórias 


KANSAS (City) = Modelo para gravar programas e dados em cassete. O termo É o nom 
me da cidade em que decorreu a conferencia que aprovou esse tipo de modelos. 
LIGHI PEN - Tipo de esferográfica com um sensor luminoso que permite eo computa- 
dor identificar o ponto em que um écran VDU (Video Display Unit) pode ser encon 
trados 


LINE PRINTER = Computador periférico que imprime uma linha completa de uma vez, « 


e não cada caracter sucessivamente, 


LOAD - Para cop' rx um programa (de gravador ou disco, pe exe) para memôria, pron 
to a ser realizado, 


LSI (Large Scale Integration) = Combinação de elementos do circuíto num pedaço 
de silício metálico, 


MACHINE LANGUAGE - Nível mais baixo (e demasiadamente pormenorizado) de instru- 
ções do programa. Todos os códigos de nível mais elevado tem que ser convertidos 
em linguagem máquina (por compílação ou interpretação) antes que um processador 
lhes obedeça. | 


MAINFRAME - Computador relativamente grande. O termo remonta a tempos anteriores 
aos circuítos integrados, quando os processadores eram construídos com transisto 
res indíviduaise. 


MATRIX - Impressora cujos caracteres se formam selecciíonando um modelo de pontos 
de uma matriz, que normalmente tem 5 pontos de largura e 7 de altura. 


MEMORY — Armazenamento de dados rapidamente acessíveis, dirigidos directamente 
por um processador central, e incluindo normalmente uma combinação de RAM e ROM 


MICRO - Prefixo que significa um milionésimoe Pode também designar qualquer coi- 
sa muito pequena, embora não tanto como “nano” ou “pico”. 


MICROPROCESSOR - Circuito integrado que possuí elevada capacidade de célculo, e- 
quivalente a 75% da unidade central de um computador dos anos 73/75. 


MICROPROGRAM - Nível de programação muito baixo, normalmente implementado em ROM 
pelo produtor do processo, para aumentar o conjunto de instruções a que o proces- 
sador obedece. 


MINICOMPUTER - Termo muito vago que designa a série média de computadores. As má 
quinas que enviam 64K bytes ou palavras de memória tendem (actualmente) a der 
chamadas mícrocomputadores; as que enviam mais que 64K posições de memória ten 
dem também a ter a mesma designação, excepto quando estão separadas em partes dig 
tintas, chamando-se nesse caso “mainframe”, Nota: Este tipo de divisão tem 
Ê tendencia a desaparecer 
MINI-FLOPPY - Floppy disc de tamanho mais reduzido, com 5 1/4” de diametro. 


MODEM - Dispositivo que torna os dados de computador transmissíveis por linha te- 
lefónica, e vice-versa. 


MONITOR - Primeiro nível de sístemas de operação por computador! programa que 
transforma os comandos de linguagem máquina em acção, operações de entradas e saí 


das » etc. 
“a 


toe 


organizado exclusivamente para os membros do clube Z So . 
HUMERO DE LICOES +... 20 - TEXTOS E QUESTIOHARIOS 


CAPITULO 1 - ESTRUTURA DE UM SISTEMA 
COCIFICACÃO DA INFORMAÇÃO 


CAPITULO 2 - PROGRAMACAO 

CRIACAO DE UM PROGRAMA 

CODIFICACAO 

DIAGRAMAS DE FLUXO 

INTRODUCAO A PROGEANAÇÃO ESTRUTURADA 


CAPITULO 3 - LINGUAGEM BAGS Te 
LEXICO | 
INSTRUÇÕES 

COMANDOS 

FUNCDOES 


CAPITULO 4 - INTRODUCAO RO PROCESSAMENTO DE DRCOS 


Ed 


CAPITULO -S - MANEJO CDE STRIHGS 
PROJECTO DE FICHEIROS 


AETOCECECEREEECECEEECEIE EE CEC total ota 


PRECO. TOTAL esc. S60B30G - paaavel em tres prestacross 


CURSO DE PROGRAMACÃO LINGUAGEM MAQUINA (C0::RZSPONDENCIA) 


organizado exclusivamente para os membros do clube Z EG 


NUMERO DE LICOES .... 28 — TEXTO e CMESTIONARIOS 
1 CASSETE COM PROGRAMA PARA MANEJAR A LINGUAGEM MAQUINA <Zx 81> 


CAPITULO 1 - CÓDIGO DIGITAL 
PINARIO * HEXADECIMAL 
REPRESENTACÃO DOS NUMEROS 


CAPITULO 2 - INTRÓDUCÃO À FROGRAMAÇAO 
REPRESENTACRO POR MHEMONICAS 
ENDERECOS DA MEMORIA E SEU MANEJO 


CAPITULO 3 - INSTRUCÕES DO < TZ 89 > 
REGISTOS 


CAPITULO 4 - UMIDADE CENTFAL 
PROGRAMAS EXPERIMENTAIS 


CAPITULO 53 - ASSEMBLER 
LINGUAGENS DE PROGRAMAÇÃO 
LISTAGEM DE PROGRAMAS 
PROGRAMAS EXPERIMENTAIS 


CAPITULO 6 - KEGISTOS 
MEMORIA 
TRANSFERENCIA DE DADOS 


CAFITULO 7 - METODOS DE ENCERECAMENTO 
IMEDIATO X INDIRECTO * RELATI'O 
TEANSFERENCIA DE BLOCOS 

CAPITULO S —- SALTOS c TRANSFERFENCIAS > 
CHAMADAS 

RETORHO 


CAPITULO S — INSTRIICOES LÓGICAS E 
MANIPULACOES DE BITS 


CAFITULO 18 - INSTELICOES ARITMETICAS 
PESQUISA DE BLOCOS 


AESPPPAPEPÃS GSXAAANAASA AASP ESA EASTER! 


PRECO TOTAL =sc, SERASDA - pagavel em tres prestacnesz 





